From: Kevin Ryde <user42@zip.com.au>
Date: Fri, 12 Nov 2010 13:28:17 +0000 (-0500)
Subject: * lisp/international/mule-cmds.el (princ-list): Use mapc.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~5685
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=69e8d552cf8c68baf3e4c1fd685b0cb1b15ea844;p=emacs.git

* lisp/international/mule-cmds.el (princ-list): Use mapc.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 412d8a5baaf..dd783f2231c 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-11-12  Kevin Ryde  <user42@zip.com.au>
+
+	* international/mule-cmds.el (princ-list): Use mapc.
+
 2010-11-12  Glenn Morris  <rgm@gnu.org>
 
 	* emacs-lisp/bytecomp.el (byte-compile-log-buffer): New constant.
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el
index 2b193fbe42a..4701e7e5718 100644
--- a/lisp/international/mule-cmds.el
+++ b/lisp/international/mule-cmds.el
@@ -2035,7 +2035,7 @@ See `set-language-info-alist' for use in programs."
 
 (defun princ-list (&rest args)
   "Print all arguments with `princ', then print \"\\n\"."
-  (while args (princ (car args)) (setq args (cdr args)))
+  (mapc #'princ args)
   (princ "\n"))
 (make-obsolete 'princ-list "use mapc and princ instead" "23.3")